Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 649,949.2 76.23 295,269.7 1,302,291 224.43 610,795.6 652,341.91 100.4
lp://DOT/LCDOT 4,078,393.4 57.81 1,016,335.0 4,029,553 57.12 1,012,471.5 48,840.08 7.5
lp://AUSD/LCDOT 2,247,817.2 180,274.47 947,748.9 2,232,802 181,638.89 970,484.0 15,015.03 2.3
lp://ACA/AUSD 1,824,813.2 3,955.13 1,340,108.9 1,821,348 4,005.90 1,437,790.4 3,465.48 0.5

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,574,149.07 -636.46 -7,182.21 NA NA NA NA NA
lp://KINT/KUSD -1,281,516.39 -585.26 -4,633.17 NA NA NA NA NA
lp://PHA/KUSD -1,046,049.86 -78.87 -2,234.19 NA NA NA NA NA
lp://KUSD/KINT 1,259,678.63 -469.28 -4,288.32 19,141.35 1,052.29 8,112.23 1,240,537.28 NA
lp://KUSD/PHA 1,041,578.99 -85.22 -2,306.40 15,151.00 535.94 14,585.40 1,026,427.99 NA
lp://KUSD/KBTC 1,492,706.92 -585.40 -7,804.04 491,107.68 19,086.30 153,824.98 1,001,599.23 NA
lp://TAI/taiKSM 0.00 0.00 0.00 4,236.90 108.49 749.51 4,236.90 NA
lp://KUSD/ARIS2 161,275.30 140.91 54,241.52 159,039.58 422.57 121,709.67 2,235.72 NA
lp://KUSD/KSM 578,432.44 253.62 638,196.32 579,374.22 253.79 668,551.60 941.79 NA
lp://KUSD/LKSM 429,391.25 1,006.97 263,543.40 428,479.27 1,009.29 399,489.34 911.98 NA
lp://KAR/LKSM 456,496.91 0.00 103,549.52 455,737.66 772.55 515,657.80 759.25 NA
lp://KUSD/BNC 58,350.15 219.00 7,731.29 57,867.28 217.12 8,314.00 482.87 NA
lp://KAR/KUSD 706,084.00 212.59 286,072.09 706,528.36 212.63 426,747.56 444.37 NA
lp://KSM/LKSM 114,361.84 5,158.57 29,873.00 114,064.96 5,404.31 31,038.42 296.87 NA
lp://KAR/KSM 1,072,474.61 833.23 416,406.62 1,072,737.80 833.69 440,381.36 263.19 NA
lp://KSM/ARIS 95.61 0.00 64.49 191.14 2.07 132.67 95.52 NA
lp://KUSD/RMRK 11,524.17 6,803.71 17,902.38 11,607.79 6,849.00 18,139.05 83.62 NA
lp://KSM/RMRK 6,736.50 3,679.67 7,508.89 6,779.44 3,704.38 7,554.79 42.93 NA
lp://KUSD/QTZ 26,266.33 604.12 6,327.59 26,299.31 1,148.03 9,759.04 32.98 NA
lp://KAR/QTZ 24,773.78 305.38 5,023.12 24,804.80 634.27 8,727.31 31.02 NA
lp://KUSD/CSM 37,392.53 4,064.51 46,830.51 37,403.50 4,064.51 46,901.07 10.97 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```